home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…ry 5: (Reseller Edition) / Apple Reference & Presentations Library 5.0 (Reseller Edition).iso / 6-Developer Demos / Developer Demos-Ed. / Math CAD Demo / Sample Files / Quadratic < prev    next >
Encoding:
Text File  |  1989-05-23  |  1.1 KB  |  52 lines  |  [TEXT/MCAD]
  1. .MCD 30002 0
  2. .CMD PLOTFORMAT logs=0,0 subdivs=1,1 size=5,15 type=l
  3. .CMD FORMAT  rd=d ct=10 im=i et=3 zt=15 pr=3 mass length time charge
  4. .CMD SET ORIGIN 0
  5. .CMD SET TOL 0.001000
  6. .CMD MARGIN 0
  7. .CMD LINELENGTH 78
  8. .CMD SET PRNCOLWIDTH 8
  9. .CMD SET PRNPRECISION 4
  10. .TXT 1 1 2 44 
  11. a1,44,44,39
  12. SOLUTION TO GENERAL QUADRATIC EQUATION
  13. .TXT 2 8 2 24 
  14. a1,24,24,25
  15. Coefficients as follows:
  16. .EQN 0 32 1 8 
  17. a:1
  18. .EQN 0 13 1 9 
  19. b:-3
  20. .EQN 0 13 1 8 
  21. c:2
  22. .EQN 2 -32 2 23 
  23. discrim:b^2-4*a*c
  24. .TXT 1 -26 2 23 
  25. a1,23,23,22
  26. Compute discriminant:
  27. .EQN 0 53 1 15 
  28. discrim=?
  29. .TXT 2 -49 4 61 
  30. a3,61,61,171
  31. -> If discriminant is positive, both roots real.                 
  32. -> If discriminant is negative, roots are complex conjugates.
  33. -> If discriminant is zero, double root.
  34. .TXT 4 -4 2 16 
  35. a1,16,16,15
  36. Compute roots:
  37. .TXT 0 39 2 25 
  38. a1,25,25,26
  39. Check ... should be zero 
  40. .EQN 2 -37 4 21 
  41. x1:(-b+\discrim)/(2*a)
  42. .EQN 1 38 2 24 
  43. a*x1^2+b*x1+c=?
  44. .EQN 1 -11 1 10 
  45. x1=?
  46. .EQN 3 -27 4 21 
  47. x2:(-b-\discrim)/(2*a)
  48. .EQN 1 38 2 24 
  49. a*x2^2+b*x2+c=?
  50. .EQN 1 -11 1 10 
  51. x2=?
  52.